Software of the Month Club 1996 May

home *** CD-ROM | disk | FTP | other *** search

/ Software of the Month Club 1996 May / Software of the Month Club 1996 May.iso / mac / ISO9660 / ZIPFILES / BMPWIZ.ZIP / BRICK.BAS < prev next >

Unknown | 1994-01-31 | 1.1 KB

open in:

MacOS 8.1 |

Win98 |

DOS

view JSON data |

view as text

This file was not able to be converted.
This format is not currently supported by dexvert.

Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	GW-BASIC `(document/gwBasic)`	ext	Supported
`66%`	dexvert	GFA-BASIC Atari `(other/gfaBASICAtari)`	ext	Supported
`1%`	dexvert	Amiga BASIC Protected File `(other/amigaBASICProtectedFile)`	ext	Unsupported
`1%`	dexvert	BAS VBDOS Pro 1.0 Source `(other/basVBDOSPro10Source)`	ext	Unsupported
`1%`	dexvert	Visual Basic Tokenized Source `(other/visualBasicTokenizedSource)`	ext	Unsupported
`1%`	dexvert	ZBASIC `(other/zbasic)`	ext	Unsupported
`100%`	file	GTA2 binary mission script (SCR), Industrial area (bil)	default (weak)
`99%`	file	data	default

hex view

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 69 04 00 00 0d 0a 27 20 | 57 61 6c 6c 20 45 66 66 |i.....' |Wall Eff|
|00000010| 65 63 74 2e 0d 0a 27 20 | 42 6c 65 6e 64 20 74 68 |ect...' |Blend th|
|00000020| 65 20 69 6e 70 75 74 20 | 69 6d 61 67 65 20 77 69 |e input |image wi|
|00000030| 74 68 20 61 20 70 61 74 | 74 65 72 6e 20 6f 66 20 |th a pat|tern of |
|00000040| 62 72 69 6b 73 2e 0d 0a | 27 20 54 68 65 20 72 65 |briks...|' The re|
|00000050| 73 75 6c 74 20 69 73 20 | 6c 69 6b 65 20 61 6e 20 |sult is |like an |
|00000060| 69 6d 61 67 65 20 6f 76 | 65 72 20 61 20 77 61 6c |image ov|er a wal|
|00000070| 6c 2e 0d 0a 27 20 46 6f | 72 20 61 20 62 65 74 74 |l...' Fo|r a bett|
|00000080| 65 72 20 61 6e 64 20 66 | 61 73 74 65 72 20 72 65 |er and f|aster re|
|00000090| 73 75 6c 74 20 75 73 65 | 20 61 20 32 34 20 62 69 |sult use| a 24 bi|
|000000a0| 74 20 6f 75 74 70 75 74 | 2e 0d 0a 0d 0a 27 20 49 |t output|.....' I|
|000000b0| 6e 70 75 74 3a 09 31 2d | 34 2d 38 2d 32 34 20 62 |nput:.1-|4-8-24 b|
|000000c0| 69 74 0d 0a 27 20 4f 75 | 74 70 75 74 3a 09 32 34 |it..' Ou|tput:.24|
|000000d0| 20 62 69 74 0d 0a 0d 0a | 27 20 41 75 74 68 6f 72 | bit....|' Author|
|000000e0| 3a 09 41 6e 64 72 65 61 | 20 42 65 6e 6f 6e 69 09 |:.Andrea| Benoni.|
|000000f0| 09 72 65 76 3a 09 31 2e | 32 0d 0a 0d 0a 0d 0a 73 |.rev:.1.|2......s|
|00000100| 74 72 69 6e 67 09 69 6e | 70 46 69 6c 65 2c 6d 73 |tring.in|pFile,ms|
|00000110| 6b 46 69 6c 65 2c 6f 75 | 74 46 69 6c 65 0d 0a 44 |kFile,ou|tFile..D|
|00000120| 65 76 43 6f 6e 09 49 62 | 6d 70 2c 4d 62 6d 70 2c |evCon.Ib|mp,Mbmp,|
|00000130| 4f 62 6d 70 0d 0a 52 47 | 42 09 70 69 78 0d 0a 66 |Obmp..RG|B.pix..f|
|00000140| 6c 6f 61 74 20 20 09 78 | 2c 79 2c 4c 0d 0a 0d 0a |loat  .x|,y,L....|
|00000150| 69 6e 70 46 69 6c 65 3d | 22 74 65 73 74 69 2e 62 |inpFile=|"testi.b|
|00000160| 6d 70 22 0d 0a 6f 75 74 | 46 69 6c 65 3d 22 74 65 |mp"..out|File="te|
|00000170| 73 74 6f 2e 62 6d 70 22 | 0d 0a 6d 73 6b 46 69 6c |sto.bmp"|..mskFil|
|00000180| 65 3d 22 62 72 69 63 6b | 73 2e 62 6d 70 22 0d 0a |e="brick|s.bmp"..|
|00000190| 0d 0a 49 62 6d 70 3d 4c | 6f 61 64 49 6d 61 67 65 |..Ibmp=L|oadImage|
|000001a0| 28 69 6e 70 46 69 6c 65 | 29 0d 0a 4d 62 6d 70 3d |(inpFile|)..Mbmp=|
|000001b0| 4c 6f 61 64 49 6d 61 67 | 65 28 6d 73 6b 46 69 6c |LoadImag|e(mskFil|
|000001c0| 65 29 0d 0a 4f 62 6d 70 | 3d 43 72 65 61 74 65 49 |e)..Obmp|=CreateI|
|000001d0| 6d 61 67 65 28 49 62 6d | 70 2e 57 69 64 74 68 2c |mage(Ibm|p.Width,|
|000001e0| 49 62 6d 70 2e 48 65 69 | 67 68 74 2c 32 34 29 0d |Ibmp.Hei|ght,24).|
|000001f0| 0a 0d 0a 46 6f 72 20 79 | 3d 30 20 74 6f 20 49 62 |...For y|=0 to Ib|
|00000200| 6d 70 2e 48 65 69 67 68 | 74 2d 31 09 09 27 20 66 |mp.Heigh|t-1..' f|
|00000210| 6f 72 20 65 76 65 72 79 | 20 72 6f 77 0d 0a 20 20 |or every| row..  |
|00000220| 20 46 6f 72 20 78 3d 30 | 20 74 6f 20 49 62 6d 70 | For x=0| to Ibmp|
|00000230| 2e 57 69 64 74 68 2d 31 | 09 09 27 20 66 6f 72 20 |.Width-1|..' for |
|00000240| 65 76 65 72 79 20 63 6f | 6c 75 6d 6e 73 0d 0a 20 |every co|lumns.. |
|00000250| 20 20 20 20 20 70 69 78 | 3d 47 65 74 50 69 78 65 |     pix|=GetPixe|
|00000260| 6c 28 4d 62 6d 70 2c 78 | 2c 79 29 09 09 27 20 67 |l(Mbmp,x|,y)..' g|
|00000270| 65 74 20 61 20 70 69 78 | 65 6c 20 66 72 6f 6d 20 |et a pix|el from |
|00000280| 74 68 65 20 70 65 74 74 | 65 72 6e 0d 0a 20 20 20 |the pett|ern..   |
|00000290| 20 20 20 4c 3d 2e 35 30 | 2b 28 2e 35 30 2f 32 35 |   L=.50|+(.50/25|
|000002a0| 35 2a 70 69 78 2e 4c 75 | 6d 29 09 09 27 20 75 73 |5*pix.Lu|m)..' us|
|000002b0| 65 20 70 61 74 74 65 72 | 6e 20 74 6f 20 6d 6f 64 |e patter|n to mod|
|000002c0| 69 66 79 20 35 30 25 20 | 6f 75 74 70 75 74 20 6c |ify 50% |output l|
|000002d0| 75 6d 0d 0a 20 20 20 20 | 20 20 70 69 78 3d 47 65 |um..    |  pix=Ge|
|000002e0| 74 50 69 78 65 6c 28 49 | 62 6d 70 2c 78 2c 79 29 |tPixel(I|bmp,x,y)|
|000002f0| 09 09 27 20 67 65 74 20 | 69 6d 61 67 65 20 70 69 |..' get |image pi|
|00000300| 78 65 6c 0d 0a 20 20 20 | 20 20 20 70 69 78 2e 52 |xel..   |   pix.R|
|00000310| 65 64 3d 70 69 78 2e 52 | 65 64 2a 4c 20 20 20 09 |ed=pix.R|ed*L   .|
|00000320| 09 27 20 6d 6f 64 69 66 | 79 20 52 47 42 20 63 6f |.' modif|y RGB co|
|00000330| 6d 70 6f 6e 65 6e 74 73 | 0d 0a 20 20 20 20 20 20 |mponents|..      |
|00000340| 70 69 78 2e 47 72 65 65 | 6e 3d 70 69 78 2e 47 72 |pix.Gree|n=pix.Gr|
|00000350| 65 65 6e 2a 4c 0d 0a 20 | 20 20 20 20 20 70 69 78 |een*L.. |     pix|
|00000360| 2e 42 6c 75 65 3d 70 69 | 78 2e 42 6c 75 65 2a 4c |.Blue=pi|x.Blue*L|
|00000370| 09 09 0d 0a 20 20 20 20 | 20 20 53 65 74 50 69 78 |....    |  SetPix|
|00000380| 65 6c 28 4f 62 6d 70 2c | 78 2c 79 2c 70 69 78 29 |el(Obmp,|x,y,pix)|
|00000390| 09 09 27 20 6d 6f 64 69 | 66 79 20 6f 75 74 70 75 |..' modi|fy outpu|
|000003a0| 74 20 69 6d 61 67 65 0d | 0a 20 20 20 4e 65 78 74 |t image.|.   Next|
|000003b0| 20 78 0d 0a 20 20 20 69 | 66 28 79 25 31 30 3d 30 | x..   i|f(y%10=0|
|000003c0| 29 0d 0a 20 20 20 20 20 | 20 44 73 70 57 68 69 6c |)..     | DspWhil|
|000003d0| 65 28 22 42 6c 65 6e 64 | 69 6e 67 22 2c 31 30 30 |e("Blend|ing",100|
|000003e0| 2f 49 62 6d 70 2e 48 65 | 69 67 68 74 2a 79 29 0d |/Ibmp.He|ight*y).|
|000003f0| 0a 20 20 20 20 20 20 50 | 72 65 76 69 65 77 28 4f |.      P|review(O|
|00000400| 62 6d 70 2c 22 4f 75 74 | 70 75 74 22 2c 35 2c 35 |bmp,"Out|put",5,5|
|00000410| 2c 4f 62 6d 70 2e 57 69 | 64 74 68 2b 31 30 2c 4f |,Obmp.Wi|dth+10,O|
|00000420| 62 6d 70 2e 48 65 69 67 | 68 74 2b 33 30 29 09 0d |bmp.Heig|ht+30)..|
|00000430| 0a 20 20 20 65 6e 64 69 | 66 0d 0a 4e 65 78 74 20 |.   endi|f..Next |
|00000440| 79 0d 0a 53 61 76 65 49 | 6d 61 67 65 28 4f 62 6d |y..SaveI|mage(Obm|
|00000450| 70 2c 6f 75 74 46 69 6c | 65 29 0d 0a 44 73 70 4d |p,outFil|e)..DspM|
|00000460| 65 73 28 22 45 6e 64 22 | 29 0d 0a 0d 0a          |es("End"|)....   |
+--------+-------------------------+-------------------------+--------+--------+